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EXECUTIVE  SUMMARY 


Statement  of  the  Problem 

In  order  to  achieve  a  specific  naval  military  objective  (e.g.,  Sea  Control, 
Convoy)  a  Battle  Group  assigned  to  complete  the  mission  may  require  a  large 
number  of  weapons  systems.  This  set  of  weapons  is  the  Battle  Group  Combat  Suite 
Determining  the  platforms  and  weapons  configurations  which  make  up  the  Battle 
Group  presents  a  formidable  bookkeeping  problem.  The  problem  is  further  com¬ 
pounded  when  the  Battle  Group  must  be  optimal  from  a  platform  composition  point 
of  view.  The  objective  of  this  project  was  to  develop  an  interactive  computer 
program  for  use  in  allocating  weapons  systems  to  platforms  under  a  set  of  pre¬ 
selected  criteria- 

Technical  Approach 

A  mathematical  algorithm  was  developed  to  distribute  the  equipment  in  the 
Battle  Group  Combat  Suite.  This  algorithm  was  designed  to  minimize  both  the 
number  of  complex  ships  used  and  the  extra  equipment  carried  by  the  Battle  Group 
but  not  specified  in  the  Battle  Group  Combat  Suite.  The  distribution  algorithm 
was  coded  in  the  APL  computer  language  and  an  interactive  computer  program 
system  was  built  around  the  distribution  algorithm.  This  system  allows  the  user 
to  change  the  weapons  configurations  of  the  available  platforms  easily,  to  change 
the  numbers  of  the  various  types  of  available  platforms,  to  outfit  new  platform 
types,  and  to  see  the  effects  on  the  resulting  Battle  Group. 
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ABSTRACT 


The  Battle  Group  Combat  Suite  Distribution  routines 
are  interactive  computer  programs  written  to  support  the 
Advanced  Aircraft  Carrier  Development  Program  (AACDP). 

The  weapons  systems  planners  and  analysts  specify,  as  input 
to  the  programs,  the  Battle  Group  Combat  Suite  and  the 
available  platforms.  The  programs  provide,  as  output  to  the 
user,  an  optimal  Battle  Group  chosen  from  the  available 
platforms  which  carries  the  specified  Battle  Group  Combat 
Suite  of  weapons.  A  users  manual  is  provided  in  addition  to 
the  description  of  the  methods  employed* 


ADMINISTRATIVE  INFORMATION 


This  work  was  funded  by  the  Systems  Development  Department  (Code  11)  of  the 
David  W.  Taylor  Naval  Ship  Research  and  Development  Center,  Bethesda,  Maryland 
20084.  The  work  was  monitored  by  (Code  1102)  under  Work  Unit  1102-026. 
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1.0  INTRODUCTION 


The  Advanced  Aircraft  Carrier  Development  Program  (AACDP)  was  established 
several  years  ago  to  provide  continuing  concept  development  for  future  air 
capable  platforms.  The  original  plans  for  the  AACDP  called  for  33  distinct 
tasks,  as  shown  in  the  flow  chart  for  the  program  on  the  next  page,  to  be  per¬ 
formed  by  various  Navy  organizations.  The  Systems  Development  Department  of 
DTNSRDC  was  assigned  the  tasks  in  blocks  7,  12,  and  28.  Their  objectives  were 
to  determine  Battle  Group  Combat  Suite/Platform  compatibility  and  to  provide  a 
tool  for  determining  Battle  Group  Candidates.  The  original  idea  was  that  care¬ 
fully  constructed  Battle  Group  Combat  Suites  would  be  provided  by  the  organization 
responsible  for  block  26  of  the  flowchart*  The  task  of  selecting  candidate 
Battle  Group  platforms  from  all  the  possible  platforms  appeared  to  be  a  problem 
in  optimization,  and  the  Systems  Development  Department  requested  support  from 
CMLD  in  this  area*  This  report  documents  a  computer  program  developed  by  CMLD 
for  use  in  planning  the  distribution  of  weapons  systems  aboard  platforms  in  the 
context  of  a  Battle  Group.  Section  2  focuses  on  the  mathematical  aspects  of 
the  distribution  process.  Section  3  describes  the  computer  techniques  used  in 
the  implementation,  and  Section  4  is  a  users  manual  for  the  computer  routines. 

A  supporting  input  program  was  also  written  and  is  described  in  Section  4.3. 


Advanced  Aircraft  Carrier  Development  Trogram 


2.0  MATHEMATICAL  TECHNIQUES 


Modern  naval  weapons  systems  consist  of  three  elements:  weapons,  sensors, 
and  fire  control  systems.  At  least  50  separate  items  make  up  the  weapons 
systems  for  modern  surface  combatant  ships  alone.  Hence,  a  Battle  Group 
Combat  Suite  can  include  on  the  order  of  50  equipment  types,  with  a  numerical 
requirement  for  each  type,  and  there  are  currently  at  least  20  types  of  major 
combatant  ships.  Therefore,  to  represent  mathematically  the  weapons  systems 
equipment  configurations  of  current  combatant  vessles  requires  matrices  on  the 
order  of  50x20.  High  speed  computers  are  almost  essential  for  computations 
involving  matrices  of  this  size. 

2 . 1  SAMPLE  PROBLEM 

The  allocation  algorithm  and  the  procedures  used  in  the  computer  program 
will  be  described  with  the  use  of  a  sample  problem: 

Analysis  of  a  given  mission  indicates  that  it  will  require 
five  A/A  missiles,  ten  cruise  missiles,  twelve  guns, 
eighteen  mines,  and  seven  torpedoes.  The  problem  is  to  select, 
from  an  armada  of  available  ships,  a  Battle  Group  that  will 
contain  the  least  number  of  expensive  ships  (the  cost  of  a  ship 
is  defined  by  the  total  number  of  weapons  it  carries)  and  carry 
the  smallest  amount  of  uncalled  for  equipment.  The  available 
ships  consist  of  cruisers,  four  submarines,  and  five  frigates, 
outfitted  as  follows: 


Cruisers 

Submarines 

Frigates 

A/A  Missiles  | 

1 

1 

0 

Cruise  Missiles  I 

0 

2 

2 

Guns  | 

2 

0 

2 

Mines  I 

4 

3 

0 

Torpedoes  ! 

0 

2 

1 

Thus,  submarines  are  most  expensive  with  eight  weapons,  cruisers  next  with 
seven  weapons,  and  frigates  cheapest  with  only  five  weapons. 


4 


Let  a  (for  "armada")  be  the  3-element  row  vector  of  the  number  of  ships 
available,  and  let  w  (for  "weapons  suite")  be  the  5-element  row  vector  of  weapons 
necessary  to  complete  the  mission. 

a  =  (3,4,5) 
w  =  (5,10,12,18,7) 

Let  A  (for  "array")  be  the  matrix  consisting  of  the  ships'  configurations. 


A  = 


1 

0 

2 

4 

0 


1  0‘ 
2  2 
0  2 
3  0 
2  1 


To  determine  whether  the  total  armada  can  do  the  job,  postmultiply  A 
T  T 

by  a  ( a  is  the  transpose  of  a)  to  obtain  the  totals  of  the  five  weapons 
types . 


A  a 


110 
0  2  2 

2  0  2 

4  3  2 

,0  2  1 


Thus,  the  total  armada  has  enough  firepower  to  accomplish  the  mission  bit 
carries  too  much  excess  weaponry. 


(A  aT  )T  -  w  =  (7,18,16,24,13)-(5,10,12,18,7)  =  (2, 8, 4, 6, 6) 


The  number  of  some  type  of  vessel  in  the  Battle  Group,  must  be  reduced.  Sub¬ 
marines  are  the  most  expensive  ships,  so  their  number  is  reduced  first. 

The  submarine's  weapons  suite  is  divided  type-by-type  into  the  vector  of  excess 
weapons . 


(2, 8, 4, 6, 6)  4  (1,2,0, 3,2)  =  (2, 4,-, 2, 3) 
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Since  the  submarines  carry  no  guns,  they  could  all  be  eliminated  without  detriment 
to  the  gun  requirement,  but  that  would  result  in  a  shortage  of  A/A  missiles  and 
mines.  (Note  that  division  by  zero  is  not  defined.) 


The  vector  (2, A,-, 2, 3)  tells  the  number  of  excess  submarines  with  respect  to 
each  type  of  equipment  that  is,  two  excess  submarines  for  A/A  missiles,  four 
excess  for  cruise  missiles,  etc.  Eliminating  two  submarines  from  the  armada  leaves 
a  candidate  Battle  Group  of  three  cruisers,  two  submarines,  and  five  frigates. 

The  new  armada  is  then  a*  =  (3,2,5),  where  the  superscript  indicates  that 
this  is  the  next  iteration- 


As  before, 


'1  1  0‘ 

r  i 

'  5 

0  2  2 

3 

14 

2  0  2 

2 

— 

16 

4  3  2 

5 

18 

0  2  U 

— 

.9. 

and 


(A(a*)T)T-w  =  (5 , 14 , 16 , 18 , 9)- (5 , 10, 12 , 18 , 7 )  =  (0,4, 4, 0,2) 


The  candidate  Battle  Group  now  carries  (0,4, 4, 0,2)  excess  pieces  of  equipment. 
The  next  most  complex  (expensive)  ships  after  submarines  are  cruisers  (with  7 
weapons),  so 


(0, 4, 4,0, 2)  + (1,0, 2, 4,0)  =  (0,-,2,0,-), 

thus  all  the  cruisers  are  needed. 

Examining  the  frigates  in  like  fashion  gives 

(0,4, 4, 0,2)  -f  (0,2, 2, 0,1)  =  (-,2, 2,-, 2) 

Clearly,  two  of  the  frigates  should  be  deleted,  and  the  final  Battle  Group  is 
then 

a  **  =  (3,2,3). 
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This  Battle  Group  meets  the  criteria  since 

(A(a**)T)T  -  w  -(5,10,12,18,7)-(5,10,12,18,7)  -  0. 

2.2  FORMAL  STATEMENT  OF  THE  PROBLEM 

Let  c=*(cj , . . .  ,cn)  and  d“(dp...,d  )  be  n-element  row  vectors  of  non-negative 

T 

integers,  and  let  A  be  an  m  by  n  matrix  of  non-negative  integers.  If  c  denotes  the 

T 

transpose  of  c  (a  column  vector)  and  x.t  denotes  the  inner  product  of  n-element  row 
vectors  x  and  t,  then  the  problem  is  to  find  an  n-element  row  vector  x*(xj , . . . ,xn) 
that  will 

T 

minimize:  f(x)  *  x.t 

T  T 

subject  to:  1)  Ax  >c 

2)  0  <  x  <  d, 


where  t*(tp...,t  )  is  the  n-element  vector  of  column  sums  of  the  matrix  A. 


2.3  FORMAL  SOLUTION  PROCEDURE 

The  m  by  n  matrix.  A,  is  the  numerical  array  which  carries  the  information 
on  platform  configurations.  Each  column  of  A  represents  the  equipment  configura¬ 
tion  of  a  particular  platform  type,  and  each  row  of  A  represents  the  distribution 
of  an  equipment  type  over  the  various  platforms.  Thus,  there  are  m  equipment  types 
and  n  platform  types.  The  n  element  vector  (t^,...,tn)  is  the  vector  of  column 
sums  of  A.  Each  t^  (for  1*1,..., n)  gives  the  total  number  of  pieces  of  equipment 
carried  on  the  i—  platform  type.  The  Battle  Group  Combat  Suite  is  given  by  the 

m-vector  (c,...,  c  ),  and  the  n-vector  (d....,d  )  contains  the  numbers 
-L  m  in 

available  for  each  of  the  n  platform  types. 

T 

The  problem  of  minimizing  (t.  ...,t  ).(x,,...,x  )  ,  where  ."  denotes  inner 

■L )  n  l  n 

product,  requires  finding  values  for  the  x^'s  (i=l,...,n)  which  are  positive 
integers  and  which  satisfy 


A  (xt 


*.xn)  2  <ci> 


.c  ) 
m 


T 
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That  is,  the  requirements  of  the  Battle  Group  Combat  Suite  (cj , . . . ,cm) ,  must  be 
met  or  exceeded  by  the  proposed  Battle  Group  (x^,...,xn). 

The  solution  procedure  starts  with  all  the  available  platforms  and  then 
removes  unnecessary  platforms  from  each  of  the  n  platform  types*  Initially  let 
(xp...,x  )  =  (d1,...,dn).  The  next  step  is  to  determine  whether  this  element 
of  the  feasible  set  meets  the  requirements  by  computing  to  see  if 

A  (Xl,...,xn)T  =  A  (d1,...,dn)T  >  (Cj, . cm)T 

Set  A  (Xl,...,xn)T  -  (c1,...,cm)T  =  (b1,...,bm)T 

Without  loss  of  generality,  we  may  assume  that  the  columns  of  A  have  been 
arranged  so  that  the  finite  sequence  of  column  sums  t,,...,t  ,  is  non- increasing. 
For 

a^O,  (i«l,...,n)  set  4  atl* 

Let  eL  be  the  minimum  of  the  r^s  which  are  greater  than  or  equal  to  1. 

Set  xx  -  dx  -  e^  This  procedure  is  repeated  for  t2  through  tR  to  give  desired 
result  (x^,...,xn). 
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3.0  COMPUTER  TECHNIQUES 


Since  the  availability  of  data  for  complete  weapons  systems  and  Combat  Suites 
was  uncertain,  a  flexible,  interactive  computer  routine  was  developed  incorporating 
an  allocation  technique  that  appeared  to  have  potential  utility.  This  routine 
requires  neither  formal  training  in  computer  programming  languages  nor  familiarity 
with  computer  terminals  (see  Appendix  A).  To  minimize  response  time,  the  computer 
routines  were  written  in  the  APL  computer  language  in  such  a  way  that  data  are 
often  redundantly  stored  in  both  temporary  (local)  and  permanent  (global)  files. 

To  systematize  and  simplify  the  entry  of  equipment  weights  and  volumes  data,  a 
supporting  input  program,  TIDES  (The  Interactive  Data  Entry  System) ,  was  written 
in  BASIC  for  the  Burroughs  B7700  computer. 

3.1  HARDWARE 

The  Battle  Group  Combat  Suite  distribution  routines  for  the  AACDP  were 
implemented  on  the  Burroughs  B7700  computer  located  at  the  Carderock,  Maryland 
installation  of  DTNSRDC .  The  B7700  is  a  third  generation  computer  employing 
virtual  memory  and  emphasizing  interactive  applications.  It  is  a  48-bit  per  word 
machine  with  two  independent  Central  Processing  Units,  one  Input/Output  module, 
and  large  disk  memory  capability.  The  time  sharing  user  interface  to  the  computer 
is  via  commercial  phone  lines  with  both  300  and  1200  baud  rates  supported. 

Although  numerous  terminals  for  the  computer  are  located  at  the  Carderock  site, 
the  user  need  not  be  on  station  to  use  the  B7700.  Most  computer  terminals  can 
communicate  with  the  B7700  through  an  acoustic  coupler  or  MODEM  (Modulator- 
Demodulator).  The  communication  to  the  B7700  is  half-duplex,  without  parity 
check.  Information  concerning  the  computer  facilities  at  DTNSRDC  may  be  obtained 
through  User  Services,  Code  1892  (phone  (202)227-1907). 

3.2  SOFTWARE 

3.2.1  APL 

The  Battle  Group  Combat  Suite  distribution  routines  are  written  in  the 
computer  language  APL  (A  Programming  Language).  The  language  differs  signifi¬ 
cantly  from  most  other  computer  languages  in  that  it  is  strictly  an  interactive 
language  with  no  provision  for  "batch"  programming.  In  fact,  APL  does  not  use 
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Che  word  "program"  to  describe  computer  instructions.  Instead  one  defines  "func¬ 
tions"  which  are  then  evaluated  in  the  mathematical  sense  of  function  evaluation- 
APL  is,  in  general,  mathematically  oriented  with  particular  strength  in  linear 
algebra.  The  language,  in  effect,  uses  its  own  alphabet,  which  includes  all  the 
standard  English  upper-case  characters  plus  about  50  special  symbols.  Although 
it  is  best  to  have  a  terminal  equipped  with  the  APL  character  set,  the  AACDP 
Battle  Group  Combat  Suite  distribution  routines  are  written  to  accommodate  the 
regular  ASCII  characters. 

3.2.2  Functions 

The  APL  workspace  AACDWS  contains  a  number  of  the  functions  used  in  the  dis¬ 
tribution  routines  in  addition  to  some  service  functions.  One  of  the  duties  of 
the  service  functions  is  to  call  other  APL  functions  from  a  file  named  AACDFNS. 
This  use  of  service  (or  "cover")  functions  frees  storage  area  in  the  workspace 
for  calculations.  The  distribution  functions  themselves  are  fairly  complicated 
and  require  considerable  storage  in  the  active  workspace.  Since  several  of  the 
many  functions  making  up  the  distribution  routines  are  not  in  constant  use,  it  is 
unnecessary  to  keep  them  in  the  active  workspace.  The  strategy  developed  here 
stores  most  of  the  APL  functions  in  the  AACDFNS  file  and  fixes  them  in  the  active 
workspace  only  when  they  are  actually  in  use.  A  glossary  is  provided  as  Appendix 
B.  Listings  of  the  file  functions  are  given  in  Appendix  C.  In  addition  to  the 
functions  which  service  the  file  functions,  there  are  several  "utility"  functions 
which  maintain  the  active  workspace.  These  functions  are  helpful  in  such  tasks 
as  conversion  of  character  data  to  numerical  data.  To  assist  in  understanding 
the  program  flow,  flow  charts  are  provided  in  Appendix  D. 

3.2.3  Data  Structures 

Three  types  of  data  structures  are  used  in  the  Battle  Group  Combat  Suite 
distribution  routines.  Two  of  these  hold  numeric  data,  the  other  holds  character 
data.  The  two  numeric  data  structures  are  vectors  and  two  dimensional  arrays 
(matrices).  The  character  data  structure  is  the  character  matrix. 

Nine  data  objects  are  used  in  the  system: 

1.  Platform  Configurations  (Numeric  Matrix) 

2.  Battle  Group  Combat  Suite  (Numeric  Vector) 


3.  Platform  List  (Character  Matrix) 

4.  Equipment  List  (Character  Matrix) 

5.  Platform  Numbers  (Numeric  Vector) 

6.  Equipment  Characteristics  (Numeric  Matrix) 

7.  Advanced  Platform  Characteristics  (Numeric  Matrix) 

8.  Advanced  Platform  List  (Character  Matrix) 

9.  Advanced  Platform  Configurations  (Numeric  Matrix) 

These  data  objects  contain  the  input  data  that  the  distribution  routines 
"edit"  and  "use".  The  Equipment  Characteristics  Matrix  is  the  only  matrix  which 
has  an  input  program  to  aid  in  data  entry.  This  input  program,  called  TIDES,  is 
discussed  in  Section  4.3. 

Particular  care  must  be  exercised  in  the  modification  of  data  structures. 
For  example,  the  length  of  the  Battle  Group  Combat  Suite  vector  must  be  the  same 
as  the  number  of  rows  of  the  Platform  Configurations  Matrix.  Refer  to  the 
compatibility  table  for  more  complete  information. 
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4.0  USER  MANUAL 


4.1  ACCESSING  AND  LEAVING  THE  SYSTEM 

The  following  representative  procedure  is  used  for  gaining  access  to  the 
system.  Although  there  may  be  slight  differences  from  what  is  given  here  for 
other  terminals,  in  the  main  following  these  instructions  will  get  the  user  on 
line  (and  off  again). 

1.  Turn  the  terminal  on. 

2.  Set  the  baud  rate  (terminal  and  communication  link  dependent)  and  parity. 

3.  Set  the  communications  link  to  half-duplex. 

4.  Dial  up  the  Burroughs  B7700  on  the  data  set  or  phone  being 
used  for  an  acoustic  coupler  (the  number  is  (202)  227-3300). 

5.  When  the  high  pitched  tone  from  the  computer  is  heard, 
punch  the  data  button  on  the  phone  or  put  the  receiver  in  the 
accoustic  coupler. 

6.  When  either  garbage  or  "TYPE  <CR>"  response  is  returned  to 
the  terminal,  hit  the  carriage  return  or  return  button. 

7.  The  computer  will  respond  with  a  greeting  and  instruct: 

((ENTER  USER  CODE  PLEASE: 

8.  In  response,  type  the  system  command: 

?MCS  SYSTEM/ APL. 

This  will  get  you  into  APL. 

9.  The  computer  will  respond  with  a  greeting. 

10.  To  sign  on,  type:  )0N  USERCODE (PASSWORD)CHARGECODE 

(Your  personal  USERCODE,  PASSWORD,  and  CHARGECODE  are  assigned 
by  the  computer  center.) 

11.  The  comuter  will  return  information  on  the  status  of  your 
workspace. 

12.  To  start  the  routines  type:  )L0AD  (USERCODE )AACDWS,  then  type 
START. 

13.  Proceed  with  the  instructions  in  Paragraph  4.2 

14.  Hanging  up  the  phone  or  breaking  the  communication  link 
will  terminte  the  session. 

15.  Type  o-u-t  with  the  letters  overstruck  to  suspend  the  sesssion 
without  signing  off. 

16.  To  sign  off,  type:)0FF. 

17.  Turn  off  the  terminal  when  finished. 


13 


4.2  USING  THE  SYSTEM 


4.2.1  Starting  the  Distribution  Routines 

Once  in  the  workspace  AACDWS,  the  user  can  begin  using  the  routines  stored 
there.  The  interactive  session  is  started  by  typing:  START.  The  system 
responds  by  asking  whether  the  user  wants  to  go  on.  This  question  is  asked 
because  the  user  will  return  to  this  point  at  various  times  during  the  session 
and,  at  that  time,  may  not  want  to  go  on.  To  proceed,  type:  GO.  A  "menu"  of  options 
will  be  returned. 

4.2.2  Choosing  the  Desired  Option 
The  five  options  are: 

1.  UPDATE  OR  VIEW  FILE  DATA, 

2.  UPDATE  OR  VIEW  CURRENT  LOCAL  DATA, 

3.  ADJUST  THE  CURRENT  PLATFORMS, 

4.  EXECUTE  THE  DISTRIBUTION  ALGORITHM, 

5.  NONE  OF  THE  ABOVE. 

To  pick  one  of  these  five  options,  type  the  number  of  with  the  option.  The  options 
are  described  as  follows: 

4.2.2. I  Option  1.  UPDATE  OR  VIEW  FILE  DATA.  This  option  allows  the  user  to  see 
what  has  been  permanently  stored  on  file.  There  is  a  distinction  between  file  data 
and  local  data.  File  data  refers  to  more  or  less  permanent  information  which  is  the 
starting  point  for  a  session  at  the  terminal.  File  data  can  be  changed,  but  the 
process  is  intentionally  made  complicated  so  that  data  computed  and  entered  over  a 
period  of  time  will  not  be  inadvertently  destroyed.  The  user  is  given  a  list  of  ten 
components  from  which  to  choose.  (Think  of  a  "file"  as  a  drawer  in  a  filing  cabinet 
and  a  "component"  as  a  folder  within  that  drawer.)  The  user  is  asked  which  folder 
has  the  material  of  interest.  After  a  component  is  chosen  (by  typing  in  the  number 
of  that  component),  the  system  displays  the  contents  of  that  component.  The  infor¬ 
mation  in  that  component  is  assigned  to  a  temporary  variable  in  the  APL  workspace 
AACDWS  named  DATA,  and  the  system  asks  the  user  if  he  wants  to  change  any  informa¬ 
tion  in  DATA.  If  the  answer  is  NO,  the  user  is  again  shown  the  main  menu  of  five 
options.  If  the  answer  is  YES  (or  OUT),  the  user  will  exit  from  the  AACD  distri¬ 
bution  procedure  but  will  still  be  in  the  workspace  AACDWS  and  the  information 
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from  the  chosen  component  remains  in  the  variable  DATA  ready  to  be  changed. 

The  variable  DATA  may  be  modified  by  the  user  using  the  APL  language.  The 
compatibility  table  (page  12)  should  be  consulted  when  file  changes  are  made. 
After  the  user  has  changed  DATA  to  suit  his  needs,  the  file  component  remains 
unchanged.  To  change  the  file  component  the  user  must  write  DATA  to  that  file 
component  using  the  APL/700  command  DATA9[n]  'AACDFILE' ,  where  n  is  the  number 
of  the  file  component. 

4. 2. 2. 2  Option  2.  UPDATE  OR  VIEW  CURRENT  LOCAL  DATA.  This  choice  enables 
the  user  to  manipulate  local  data.  With  this  selection  the  user  is  immedi¬ 
ately  presented  with  another  menu  of  six  options. 

1.  PLATFORM  CONFIGURATIONS 

2.  EQUIPMENT  LIST 

3.  PLATFORM  LIST 

4.  NUMBER  OF  PLATFORMS 

5.  BATTLE  GROUP  COMBAT  SUITE 

6.  NONE  OF  THESE 

Again,  the  user  must  choose  the  data  object  he  wishes  to  look  at,  and  the 
routine  leads  him  through  the  modification  procedure. 

1.  PLATFORM  CONFIGURATIONS 

Each  of  the  currently  available  platforms  carries 
certain  weapons  systems,  that  is,  so  many  radars  of  certain 
types,  so  many  missiles,  etc.  Most  of  these  configura¬ 
tions  are  stored  in  the  file,  but  new  platform  types 
may  have  been  added  or  changes  made  to  the  current 
weapons  systems  configurations.  This  option  allows  the 
user  to  look  at  and  change  these  current  weapons  systems 
configurations.  For  example,  the  user  may  want  to  try  a 
distribution  in  which  all  of  the  available  FFG-7  class 
frigates  carry  LAMPS  III  helicopters.  The  platform  con¬ 
figuration  matrix  is  the  place  to  make  such  a  change. 

2.  EQUIPMENT  LIST 

The  list  of  equipment  types  to  be  distributed  is  not 
the  same  as  the  Battle  Group  Combat  Suite,  which  is  a 
list  taken  from  the  Equipment  List  with  stated  quantities 
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of  each  type  of  equipment.  Changing  the  equipment  list 
is  a  major  step,  for  such  changes  affect  the  platform 
configuration  matrix,  the  Battle  Group  Combat  Suite  and 
every  variable  that  has  anything  to  do  with  equipment. 

(Refer  to  the  Compatibility  Table.) 

3.  PLATFORM  LIST 

This  option  provides  a  list  of  the  names  and 
quantities  of  all  the  platform  types  which  are  currently 
distribution  candidates.  After  viewing  the  platform 
list  the  user  is  asked  if  he  wants  to  append  a  new  plat¬ 
form  type  to  the  platform  list. 

4.  NUMBER  OF  PLATFORMS 

This  option  allows  the  user  to  change  the  number  of 
platforms  of  each  type  available  for  distribution.  The 
user  will  be  asked  to  enter  the  platform  number  he  wants 
to  change  and  then  will  be  given  a  chance  to  change  the 
number  of  that  type  of  platform  available  for  distribution. 

5.  BATTLE  GROUP  COMBAT  SUITE 

This  choice  allows  the  user  to  make  changes  in 
the  Battle  Group  Combat  Suite.  The  current  Battle 
Group  Combat  Suite  is  displayed  and  then  changes  can 
be  made  . 

6.  NONE  OF  THESE 

This  choice  returns  the  user  to  the  first  menu. 

4. 2. 2. 3  Option  3.  ADJUST  THE  CURRENT  PLATFORMS.  This  choice  allows  the 
user  to  work  with  the  list  and  the  configurations  of  platforms  currently 
available  for  distribution.  First,  the  user  is  given  yet  another  menu  to 
choose  from. 

1.  INCREASE  THE  NUMBER  OF  PLATFORMS 

2.  ADD  AN  ADVANCED  PLATFORM 

3.  MODIFY  AN  EXISTING  PLATFORM  TYPE 

4.  OUTFIT  A  NEW  PLATFORM  TYPE 

5.  NONE  OF  THE  ABOVE 

The  user  makes  his  selection  by  typing  the  desired  option  from  the  list. 
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1.  INCREASE  THE  NUMBER  OF  PLATFORMS 

This  choice  is  the  same  as  updating  the  number  of 
platforms. 

2.  ADD  AN  ADVANCED  PLATFORM 

This  choice  allows  the  user  to  pick  a  platform 
configuration  from  the  list  of  advanced  platforms  and 
to  insert  such  a  conceptual  vessel  into  the  distribution 
mix  with  a  minimum  of  effort.  He  is  asked  if  he  knows 
the  advanced  platform  number  if  he  does  not,  he  is 
given  the  list  of  advanced  platforms.  After  he  has 
selected  an  advanced  platform  the  file  data  for  that 
advanced  platform  is  added  to  the  configuration  matrix. 

The  updated  configuration  matrix  and  updated  list  of 
platforms  is  then  available  for  distribution.  He  is 
asked  the  quantity  of  these  advanced  platforms  he  wants 
available  for  distribution.  When  the  user  has  answered 
all  these  questions,  he  goes  back  to  the  original  menu. 

3.  MODIFY  AN  EXISTING  PLATFORM  TYPE 

This  choice  is  appropriate  to  retrofit  an  older 
platform  or  to  try  a  different  weapons  suite  on  a  new 
type.  First,  the  user  enters  the  platform  number  of 
interest;  the  system  displays  that  platform's  current 
configuration.  Next,  he  enters  the  desired  modifications, 
putting  in  the  different  weapons  systems.  The  modify 
function  updates  the  configuration  matrix  and  returns  the 
user  to  the  original  menu. 

4.  OUTFIT  A  NEW  PLATFORM  TYPE 

Here  the  user  can  outfit  a  new  platform  from  the 
hull  up  and  obtain  an  estimate  of  the  residual  weight 
and  volume.  The  first  question  the  user  must  answer  is 
whether  tha  military  payload  weight  and  volume  are  on 
file.  If  they  are,  the  system  asks  for  the  platform 
number  and  fetches  the  required  data.  If  the  payload 
weight  and  volume  are  not  on  file,  the  user  is  asked  to 
name  the  ship.  He  then  manually  enters  the  payload  weight 
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and  volume.  At  this  point  (whether  starting  from  scratch  or 
not)  the  user  enters  the  percentage  of  weight  and  volume 
he  actually  plans  to  use.  The  user  decides  whether  he 
wants  to  consider  the  constraints  on  weapons  systems 
himself  or  have  the  system  help  him  with  it.  If  he  wants 
the  constraints  considered  automatically,  the  system  then 
asks  what  equipment  type  is  desired  and  the  number  of  them 
to  be  installed.  The  program  indicates  the  constraints 
for  the  equipment  type  (i.e.,  other  equipment  which  must 
be  installed  in  conjunction  with  the  given  equipment)  and 
allows  the  user  to  change  those  constraints.  When  the  user 
is  satisfied  with  the  constraints,  the  system  will  compute 
the  number  of  each  associated  equipment  type  which  must  be 
installed  if  the  specified  number  of  the  desired  equipment 
type  is  installed  and  how  much  payload  the  weapons  systems 
will  take  up  and  subtracts  this  from  the  payload  weight  and 
volume  remaining. 

If  the  user  selects  the  manual  instead  of  the 
automatic  mode  for  constraint  consideration,  the  system 
displays  the  equipment  currently  on  the  platform  being 
outfitted  and  asks  the  user  whether  he  is  finished  with 
that  platform.  If  he  is  not  finished,  the  user  is  asked 
whether  he  wants  to  add  or  delete  equipment.  To  add 
equipment  the  user  types  "A"  and  the  system  tells  him  to 
enter  the  equipment  number.  Next,  the  user  enters  the 
quantity  to  be  added.  To  delete  equipment,  he  types 
"D"  when  prompted  and  is  then  asked  for  the  equipment 
type  and  the  number  to  be  deleted.  In  either  case,  the 
system  computes  the  space  and  weight  committed  on  the 
platform.  The  platform  configuration  is  displayed  and 
the  user  is  again  asked  if  he  is  finished.  If  the  answer 
is  YES,  matrix  A  is  updated  and  the  user  is  asked  how 
many  of  this  new  platform  type  he  wants  available  for 
distribution.  The  user  eventually  is  piesented  with  the 
original  menu. 
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5.  NONE  OF  THE  ABOVE 

This  option  removes  the  user  from  the  distribution 
scheme.  At  just  about  any  point  the  user  can  type  "OUT" 
to  exit  from  the  system. 

4. 2. 2. 4  Option  4.  EXECUTE  THE  DISTRIBUTION  ALGORITHM.  This  is  the  core  of  the 
entire  system.  The  distribution  algorithm  distributes  the  equipment  in  the  Battle 
Combat  Group  Suite  over  the  available  platforms,  reducing  the  number  of  complex 
platforms  used  and  keeping  the  excess  equipment  carried  to  a  minimum. 

When  the  user  chooses  this  option,  he  will  be  asked  whether  he  wants  to  see 
the  Battle  Group  Combat  Suite.  If  so,  he  is  asked  the  same  sequence  of  questions 
as  in  UPDATE  THE  BATTLE  GROUP. 

After  the  user  has  configured  the  Battle  Group  the  way  he  desires,  he  will 
be  asked  if  he  wants  to  "DISTRIBUTE  THE  BATTLE  GROUP  COMBAT  SUITE?".  If  he  does 

he  types  "YES".  (A  "NO"  answer  returns  him  to  the  original  menu).  Now  the  distri¬ 

bution  routine  tries  to  use  the  platforms  the  user  said  were  available,  in  the 
chosen  configurations,  to  distribute  the  Battle  Group  Combat  Suite.  If  enough 
platforms  are  availble,  the  final  distribution  appears  and  the  user  is  returned  to 
the  original  menu.  (The  user  can  actually  see  all  the  various  iterations  of  the 
algorithm  if  he  assigns  the  variable  SHOW  as  "SHOWALL"  in  the  AACDWS  workspace). 

If  enough  platforms  are  not  available,  the  system  provides  a  summary  of  the  items 
that  were  assigned  to  a  platform  in  the  distribution  and  the  user  is  returned  to  the 
menu  that  allows  him  to  "ADJUST  THE  CURRENT  PLATFORMS".  He  can  make  changes  in 
the  available  platforms  and  when  he  is  finished,  he  is  again  asked  if  he  wants  to 
distribute.  After  completing  his  iterations  the  user  can  opt  to  exit,  at  which 
point  he  is  returned  to  the  original  menu. 

4. 2. 2. 5  Option  5.  NONE  OF  THE  ABOVE.  To  end  the  session  the  user  types  "OUT". 

He  is  then  out  of  the  distribution  system,  but  not  off  the  APL  system.  To  do  this, 

he  types  "OFF." 


4.3  TIDES  USERS  GUIDE 


4.3.1  Introduction  to  TIDES 

TIDES  (The  Interactive  Data  _Entry  System)  was  written  as  a  data-gathering 
support  program  for  AACDP  (Advanced  Aircraft  Carrier  Development  Program)  Battle 
Group  Combat  Suite  Distribution  Routines.  Written  in  BASIC  this  program  is  a 
useful  tool  in  the  creation  and  editing  of  data  files  that  contain  weapon  specifi¬ 
cations.  Among  the  specifications  are  total  system  weight,  topside  weight,  below 
deck  weight,  total  system  volume,  topside  volume,  and  below  deck  volume*  With  its 
easy-to-use  interactive  approach,  TIDES  can  be  simply  run  at  minimal  cost.  A 
sample  interactive  session  is  reproduced  in  Appendix  E. 

TIDES  was  developed  in  response  to  a  need  for  a  simple,  quick  method  for 
entering  weapon  specification  information  into  a  data  file  with  which  the  main 
program  could  interface  and  from  which  it  could  withdraw  the  needed  information. 
Appendix  F  contains  the  program  listing. 

4.3.2.  Use 

After  the  opening  greeting  banner,  options  are  availble  for  file  editing  or 
file  creation- 

4. 3-2.1  Specification  File  Options.  TIDES  was  designed  specifically  for 
editing  purposes,  but  it  also  provides  for  creating  a  file  to  edit.  This  is  the 
function  of  FILE  OPTION  "1",  and  once  the  file  is  created  this  option  will  not 
be  needed.  Be  careful  when  entering  FILE  OPTION  not  to  enter  "1"  by  mistake. 

An  entry  In  this  first  option  returns  a  safety  check  to  guard  against  deleting  a 
previously  created  file  named  "TRY."  Once  the  file  is  set  up,  there  is  full 
compatability  between  the  file  created  in  option  one  and  the  editing  of  this  new 
file  in  option  two.  Because  of  system  restrictions,  the  name  must  be  internally 
specified  in  the  program  as  "TRY." 

FILE  OPTION  "2"  is  used  to  edit  an  already  existing  file  named  "TRY".  Since 
data  entry  and  editing  are  the  main  function  of  TIDES,  FILE  OPTION  "2"  will  be  used 
most  often. 

4. 3. 2. 2  Equipment  List  Options.  The  need  to  interactively  create,  maintain, 
and  edit  an  equipment  file  prompted  the  creation  of  equipment  list  file 
options.  The  program  poses  the  question  to  the  user,  "Do  you  already  have  an 
equipment  list  file  for  the  program?"  A  "YES"  response  places  the  user  into  a  mode 


from  which  he  can  enter  his  own  equipment  list  (as  opposed  to  using  an  already 
existing  file)  and  then  continue  with  the  program.  The  equipment  file,  either 
way,  must  be  and  is  named  "EQUIP." 

A. 3. 2. 3  Data  Entry  Options.  Once  a  file  named  "TRY"  exists,  it  may  be  edited. 
TIDES  offers  eleven  options: 

Option  (1).  Print  out  all  the  options  available  to  TIDES  and  their 
corresponding  numbers. 

Option  (2).  Print  the  list  of  equipment  types  and  their  corresponding 
numbers . 

OPTION  (3).  Add  or  delete  equipment  types  to  or  from  "EQUIP".  The 
corresponding  characteristics  of  the  equipment  types  are  also  added  or 
deleted  in  the  file  "TRY"  so  both  files  are  consistent.  The  name  of 
an  equipment  type  can  also  be  modified  with  this  option  to  correct 
misspellings,  etc. 

Option  (A).  Enter  the  weight  (in  pounds)  and  volume  (in  cubic  feet) 
of  a  certain  equipment  type,  specified  by  number. 

Option  (5).  The  design  of  option  (5)  allows  a  user  who  knows  only  the 
weight  (or  only  the  volume)  of  an  item  of  equipment,  to  specify  the 
density  of  that  item.  Using  the  specified  density  and  holding  either 
the  weight  or  volume  constant  (specified  by  user),  TIDES  will  compute 
the  volume  or  weight  of  an  item  of  equipment  from  the  specified  density 
and  a  known  weight  or  volume. 

Option  (6).  Using  the  weight  and  volume,  this  option  calculates  the 
(corresponding)  topside  and  below  deck  weights  and  volumes.  The  user 
input  is  the  percentage  of  the  piece  of  equipment  mounted  above  the 
main  deck  (0  level). 


Option  (7).  The  actual  topside  and  below  deck  weights  can  be  entered 
through  option  (7).  If  a  total  weight  has  already  been  specified,  a 
check  is  made  to  see  if  the  sum  of  these  weights  is  consistent  with 
the  total  weight. 

Option  (8).  Option  (8)  is  the  same  as  option  (7)  but  is  calculated 
in  terms  of  volume. 

Option  (9).  In  Option  (9),  a  single  line  of  data  is  printed  out  for 
the  equipment  number  specified. 

Option  (10).  To  print  out  the  entire  array,  option  (10)  is  most  useful. 
It  is  suggested  that  the  user  exercise  option  (10)  prior  to  the  termi¬ 
nate  Option  (11)  to  ensure  that  the  updated  array  is  in  proper  form. 

Option  (11).  Stop  the  program  and  save  all  the  results  of  the  editing 
session  into  the  respective  files.  This  option  provides  the  user  exit 
from  TIDES. 
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APPENDIX  B 
GLOSSARY 

FUNCTIONS  (Resident  in  workspace) 

APPEND  -  Appends  a  character  matrix  variable  named  LIST  with  more  rows  of 

character  data.  The  resultant  character  matrix  is  called  NEWLIST. 

CALL  -  Calls  a  function  from  the  file  and  fixes  it  in 
the  active  workspace 

CLOSE  -  Closes  a  CANDE  file  which  was  previously  opened  by  the  function 
OPEN. 

CONFIG  -  Shows  the  current  weapon  suite  (i.e.,  configuration)  of  one  of 
the  platforms  available  for  distribution. 

CONVERT  -  Converts  character  data  to  numerical  data  for  processing. 

COPY  -  Copies  a  CANDE  file. 

FDISPLAY  -  Serially  displays  the  contents  of  a  specified  APL  file. 

FIX  -  Fixes  an  APL  function  stored  in  a  file  into  the  active  workspace. 

OPEN  -  Opens  a  CANDE  file  from  the  APL  workspace. 

PACK  -  Removes  the  blank  spaces  from  a  character  input. 

PAD  -  Pads  the  end  of  a  line  of  character  data  with  blank  spaces  so  the 
line  can  be  appended  to  an  exisiting  character  matrix. 

PLATNUMS  -  Displays  the  current  number  of  platforms  of  each  class  available 
for  distribution. 

READ  -  Reads  the  ntents  of  a  CANDE  file  opened  previously. 

RESET  -  Resets  the  workspace  when  it  is  necessary  to  start  over  but  to  keep 
the  changes  made. 

ROWNAMES  -  Produces  a  padded  character  matrix  from  a  character  vector  input 
in  which  the  rows  are  determined  by  user-selected  delimiters. 

START  -  Starts  the  distribution  routine  and  makes  the  initial  file  function 
call. 

STICK  -  Places  the  output  of  the  function  COPY  into  a  numerical  vector. 
STRIP  -  Strips  the  leading  blanks  from  a  character  vector  input. 

WRITE  -  Writes  information  onto  a  previously  opened  CANDE  file. 


FILE  FUNCTIONS 


ADD1  -  Adds  an  advanced  platform  from  the  Advanced  Platform  List  (Component 
8,  AACDFILE)  to  the  list  of  platforms  available  for  distribution. 

ADJUST  -  Initiates  the  procedures  for  making  adjustments  to  the  platforms 
list  and  the  configurations  matrix. 

AGGREGATE  -  Totals  the  weight  and  volume  of  a  specified  weapons  system  by 
referring  to  the  Equipment  Characteristics  Matrix  in  Component 
7  of  the  AACDFILE. 

AGG1  -  Pulls  data  from  the  Equipment  Characteristics  Matix  (Component  7, 
AACDFILE) . 

BATTLEGROUP  -  Facilitates  the  user's  desired  modification  of  the  Battle 
Group  Combat  Suite. 

CHECK  -  Checks  the  weapons  system  constraints  automatically  and  allows 
their  modification. 

COMMAND  -  Presents  the  main  selection  of  user  options. 

COMPSYS  -  Computes  and  displays  the  weapons  system  implied  in  the 
automatic  constraint  consideration  mode  of  ADJUST. 

DISPLAY  -  Displays  the  weapons  systems  suite  of  the  platform  after  the 
adjustments  have  been  made. 

DISTRIBUTE  -  This  is  the  main  distribution  algorithm  and  is  des¬ 
cribed  in  detail  elsewhere  in  this  report. 

ENTER  -  Allows  interactive  choice  for  update  of  file  components  in  the 
AACDFILE. 

EXECUTE  -  Calls  and  executes  various  other  funcitons  in  the  file. 

INCREASE1  -  Increases  the  number  of  any  platform  available  for  distri¬ 
bution. 

INSTALL  -  Carries  out  the  arithmetic  associated  with  installation  of 

equipment  on  a  platform;  i.e.,  the  weight  and  volume  available 
on  a  platform  type  reduced  by  the  equipment  weight  and  volume 
stored  in  the  characteristics  matrix. 

MODIFY  -  Modifies  the  weapons  configuration  of  a  platform  type. 

0UTFIT1  -  This  is  the  heart  of  the  modification  procedure,  it  allows 
the  user  to  identify  the  bare  hull  and  that  hull's 
capacities. 

SUBMIT1  -  A  short  function  which  allows  entry  of  an  equipment 
type. 

SUBMIT2  -  Allows  the  user  to  specify  unwanted  equipment. 

UP1  -  Appends  equipment  to  a  list. 

UPDATE  -  Updates  the  various  file  components. 
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VARIABLES 


A  -  Configurations  matrix. 

AACDFILEMAP  -  List  of  the  components  of  the  file  AACDFILE. 

BGCS  -  Battle  Group  Combat  Suite  vector. 

C  -  Temporary  dimension  vector. 

EQUIPMENT  -  Equipment  list. 

FLAG  -  Flag  test  variable. 

FLAG1  -  Flag  test  variable. 

FNMAP  -  File  map  for  the  file  functions. 

LIST  -  Temporary  character  matrix  used  in  APPEND. 

NEWLIST  -  Temporary  character  matrix  output  of  APPENDD. 

NUMBERPLATS  -  Vector  of  numbers  of  platforms  available. 

PAYLOAD  -  Temporary  vector  used  in  ADJUST. 

PLAT  -  Temporary  character  matrix  used  in  ADJUST. 

PLATFORMS  -  Platforms  available  for  distribution. 

REGALIA  -  Temporary  vector  of  weapons  configurations  used  in  ADJUST. 
SHORT  -  Shortfalls  (if  any)  after  the  distribution. 

SHOW  -  Control  variable  for  Indicating  whether  intermediate  steps  in  the 
distribution  are  to  be  shown. 

SOLN  -  Solution  vector  for  the  distribution. 

TEXT  -  Temporary  variable  of  character  data. 

WEAPON  -  Temporary  scalar  used  in  ADJUST. 

XS  -  Excess  weaponry  carried. 


FILES 

AACDFNS  -  Functions  used  or  called  in  the  workspace  AACDWS. 
AACDFILE  -  Permanent  data  used  by  the  distribution  routines. 


OTHER 

APL  -  Acronym  for  A  Programming  Language 

AACDWS  -  Name  of  the  APL  workspace  in  which  distribution  routines 
are  located. 

CANDE  -  Acronym  for  the  Burroughs  "Command  AND  Edit"  interactive  system. 
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ADJUST  THE  CURRENT  PLATFORMS 
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APPENDIX  E 


1 


-  TIDES  INTERACTIVE  SESSION 


A9 


RUN  TIDES 
♦RUNNING  3005 


*««***t***»****»*******t««'t  ************ 


*  WELCOME  TO  TIDES  * 

*  THE  INTERACTIVE  DATA  ENTRY  SYSTEM  * 

*  * 

t  TODAY'S  DATE  IS  01/28/81  * 

*  THE  TIME  IS  15f09  * 

*  MOST  RECENT  WORK  SESSI0N-01/2B/81  * 

»  AT  14156  * 


***##***#**##********i|c!|(#*******lr  ******* 


THIS  PROGRAM  HAS  THE  CAPABILITY  TO  1 

< 1 ) CREATE  A  NEW  DATA  FILE  NAMED  TRY 
<  2 ) EDIT  AN  ALREADY  EXISTING  FILE  NAMED  TRY 

♦  ? 

FILE  OPTIONS 

OPTION  ONE *  FILE  CREATION  MODE  >  REQUIRES  A  SAFETY  CHECK 

TO  INSURE  THAT  AN  ALREADY  EXISTING  FILE  NAMED  TRY  IS  NOT  WIPED  OUT 

RE-ENTER  FILE  OPTION  (BE  SURE)?2 

DO  YOU  ALREADY  HAVE  AN  EQUIPMENT  LIST  FILE  FOR  PROGRAM ( Y/N ) ?Y 
FOR  A  LISTING  OF  OPTIONS*  TYPE  1  AFTER  OPTION? 

0PTI0NT1 

THIS  PROGRAM  HAS  THE  FOLLOWING  OPTIONS  FOR  DATA  ENTRIES*. 

(1)  OPTION  LIST 

(2)  EQUIPMENT  TYPE  NUMBER  LIST 

<  3 )  EDIT  EXISTING  EQUIP.  FILE?  ADD*  DELETE*  OR  MODIFY  NAME 

(4)  WEIGHT/VOLUME  IN  LBS  t  CU.  FT. 

(5)  DENSITY  IN  LBS/CU.FT. 

(6)  PERCENT  TOPSIDE  WEIGHT  AND  VOLUME 

(7)  TOPSIDE  AND  BELOW  WEIGHT 

(8)  TOPSIDE  AND  BELOW  VOLUME 

(9)  PRINT  OUT  A  SPECIFIC  UPDATED  LINE 

(10)  PRINT  OUT  UPDATED  ARRAY 

(11)  END 

0PTI0N?2 

(  1  ) 

1 ) SPY- 1 


(  2  ) 

2 ) SPS-40 


(  3  ) 

3 ) SPS-48C 


(  4  ) 

4 ) SPS-49 


<  5  ) 

5 ) SPS-55 
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(  6  ) 

6 ) SPS-67 


<  7  > 

7>hK-23TAS 


(  8  > 

8)S0R-18 


<  9  ) 

9)SQR-19 


<  10  ) 

10)SL0-25 


<  11  ) 

11 )SLQ-32< 0)2 


<  12  ) 

12 ) SLQ-32  <0)3 


(  13  ) 

13)SQS-33  (W/  HK-116  FCS) 


<  14  ) 

14) SQS-36 


<  15  ) 

15) SSQ- 72 (OUTBOARD ) 


<  16  > 

16 ) SM- 1 ( MR ) 


(  17  ) 

17)SM-1 (ER) 


<  18  ) 

18)SN-2(MR> 


(  19  ) 

19)SM-2(ER) 


<  20  ) 

20)HSSMS(U/MK  91  GHFCS ) 


(  21  ) 

21 ) SLAT 


<  22  ) 

TFI  I  fAMT^TFA) 
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(  23  ) 

23 ) HARPOON (ALONE ) 


(  24  ) 

24)T0MAHAWK<4  CELL  CANISTER  LAUNCHER ) 


25) TOMAHAWK (ALONE) 


(  26  ) 

26 ) MK- 10  GMLS 


(  27  ) 

27 ) MK- 1 1  GMLS 


(  28  ) 

2B ) MK- 13  GMLS 


(  29  ) 

29 ) MK- 16  RLS 


<  30  ) 

30 ) MK-36  DECOY  LS 


31 ) EX-41  VLS 


(  32  ) 

32 ) MK-26  GMLS 


33 ) MK- 15  CIWS 


(  34  ) 

34 ) MK-42  5 " /54  GUN 


<  35  ) 

35 ) MK-45  5V54  GUN 


(  36  ) 

36 ) MCLWG  8'/55 


(  37  ) 

37 ) MK-75  76m*  GUN 


(  38  > 

38 ) MK-32  SUTT 
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(  3?  ) 

39 ) ASROC 


(  40  ) 

40 ) MK-68  GIP  MODS 


<  41  ) 

411MK-74  GMFCS 


<  42  ) 

42JMK-76  GMFCS 


<  43  > 

431MK-86  GMFCS 


(  44  ) 

44 ) MK-92  GMFCS 


(  45  ) 

45 ) MK-99  GMFCS 


(  46  ) 
46JSEAFIRE 


<  47  ) 

47 ) A-6  INTRUDER 


<  48  ) 

48 ) S-3  VIKING 


(  49  ) 

491E-2C  HAUKEYE 


(  50  ) 

501F-14  TOMCAT 


(  51  ) 

51)F-18  HORNET 


52 ) AV-8B  HARRIER 


(  53  ) 

53 ) SH-3  SEAKING 


(  34  ) 
34)LAMPS  I 


<  55  ) 

AMPQ  TXT 


OPTION7’ 8 


ENTER  EQUIPMENT  TYPE  NUMBER7’  1 
EQUIPMENT  TYPES 

1 )SPY-1 

ENTER  TOPSIDE  VOL .  AND  BELOW  VOL.,  SEPARATED  BY  COMMA? 750 » 525 
TOTAL  VOL.  DOES  NOT  EQUAL  SUM  OF  TOP  %  BEL.  VOIR,  ENTERED 
DO  YOU  WISH  TO  OVERWRITE  CURRENT  SUM  OF-646  (Y/N)7’N 

OPTION7^ 

ENTER  EQUIPMENT  TYPE  NUMBER? 1 

1 ) SPY-1 

47316  45934  1382  -646  -616  -30 

OPTIONS 

CHOOSE  ADD ,  DELETE,  OR  MODIFY  MODE  <A/D/M)?M 
ENTER  EQUIP.  NUMBER  TO  BE  M0BIFIEB?1 
ENTER  NEW  NAME-ONLY  NAME  CHANGES,  NO  CHANGE  IN 
SPECIFICATI0NS?AN/SPY-1 
1  )SPY-1 

HAS  BEEN  CHANGED  TO  AN/SF'Y-1 
OPT  I ON? 4 

ENTER  EQUIPMENT  TYFE  NUMBER? 1 
EQUIPMENT  TYPE  !  AN/SF'Y-  1 

ENTER  WEIGHT  AND  VOLUME,  SEPARATED  BY  COMMA?48000 , -650 
0FTIDN?9 

ENTER  EQUIPMENT  TYFE  NUMBER? 1 

AN/SPY-1  48000  45934  1382  -650  -616  -30 

OPT I0N??0 

EQUIP. 

<  1  ) 

AN/SPY-1 

(  2  ) 

2 )  SPS-40 


(  3  > 

3 )  SPS- 48C 

169822  56400  /  113422  -782  -531  /-251 

(  4  ) 

4>SPS-49 

134731  19868  /  114663  -609  -314  /-295 

(  5  ) 

5 )  SF'S-55 

165018  48853  /  116165  -1332  -804  /-52B 

(  6  > 

6 )  SPS-67 

2300  2300  /  0  -201  -201  /  0 


TOT.  UT.  TOP/BEL.  TOT.  VOL.  TOF’/BF  L 

48000  45934  /  1382  -650  -616  /-30 

277°00  45600  /  231400  -4134  -1124  /-3000 
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<  7  ) 

7)NK-23TAS 


143450 


110600  /  32830  -2035 


-1810  /-245 


<  8  ) 

8 ) SQR- 1 8 

54QOO 

42000  /  12000 

1814 

1302  /  312 

<  9  > 

9 ) SOR-19 

17299 

16337  /  762 

1435 

517  /  918 

(  10  > 
10)SLQ-25 

21629 

0  /  21629 

-31 

0  /-31 

<  11  ) 

1 1 >  SLQ-32  <  V ) 2 

4868 

4168  /  700 

-107 

-94  /-13 

<  12  ) 

1 2  )  SLQ-32 ( y ) 3 

20015 

7100  /  12915 

-94 

-50  /-4 4 

<  13  ) 

13)SQS-33  <U/ 

HK- 

■116  PCS ) 
39045 

13350  /  25695 

-1014 

-314  /-700 

(  14  ) 

14) SQS-56 

16157 

6190  /  9967 

-640 

-240  /-400 

(  15  ) 

15 )SSQ-72(0UT BOARD) 

7280 

1905  /  5375 

-107 

-50  /-57 

<  16  ) 

16) SM- 1 <  HR ) 

0 

0/0 

0 

0/0 

<  17  ) 

17  )  SM-1 ( ER ) 

0 

0/0 

0 

0/0 

<  18  > 

18 ) SM-2 ( MR ) 

0 

0/0 

0 

0/0 

(  19  ) 
19)SH-2<ER) 

0 

0/0 

0 

0/0 

<  20  ) 

20)NSSHS<W/MK 

91 

GHFCS ) 

0 

0/0 

0 

0/0 

<  21  > 

21 >SLAT 

0 

0/0 

0 

0/0 

(  22  ) 

22)HARR00N<  4  CELL 

CANISTER) 

0 

0/0 

0 

0/0 

(  23  > 

•>7  )  HARPOON  (  61  ONF  ) 


75 


0 


0/0 


0 


0/0 


(  24  ) 

24) TOMAHAWK <4  CELL  CANISTER  LAUNCHER) 


(  25  ) 

25) T0MAHAUK< ALONE) 

0 

<  26  ) 

26 )  MK- 10  GhLS 


<  27  ) 

27 ) MK-1 1  GMLS 


(  28  ) 

28 ) MK- 13  GMLS 


<  29  ) 

29 ) MK- 1 6  RLS 


<  30  ) 

30 ) MK-36  DECOY  LS 


(  31  ) 

3DEX-41  ULS 


(  32  ) 

32 ) MK-26  GMLS 


(  33  ) 

33  )  MK- 15  CIUS 


(  34  ) 

34 ) MK-42  5 " /54  GUN 

0 

(  35  ) 

35 )  MK-45  5V54  GUN 

0 

(  36  ) 

36 )  MCLWG  8V55 


(  37  ) 

371MK-73  76«.»  GUN 


(  38  ) 

38)MK-32  SUTT 


(  39  ) 
39) ASROC 
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(*  40  ) 

40  )  MK-68  GIF'  MOOS 


<  41  ) 

41  >HK-74  GMFCS 


i  42  ) 

42 ) MK-76  GMFCS 


(  43  ) 

43 ) MK-86  GMFCS 


(  44  ) 

44 )  MK-92  GMFCS 


<  '45  > 

45 ) MK-99  GMFCS 


(  46  ) 
461SEAFIRE 


(  47  ) 

47 ) A-6  INTRUDER 


<  48  ) 

48 ) S-3  VIKING 


(  49  ) 

49JE-2C  HAUKEYE 


<  50  ) 

50 > F- 1 4  TOMCAT 


(  51  ) 

5DF-18  HORNET 


<  52  ) 

52 ) AV-BB  HARRIER 


<  53  ) 

53 ) SH- 3  SEAKING 


(  54  ) 

54 )  LAMPS  I 


(  55  > 

55 ) LAMPS  III 


APT  TON"  1 1 
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APPENDIX  F  -  TIDES  LISTINGS 
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♦FILE  (CACK)TIDES  ON  DTNSRDC 

100  REM  T I DES 1  THE  INTERACTIVE  DATA  ENTRY  SYSTEM 

125  REM  WAS  WRITTEN  BY  BOB  Q'JILLIN  IN  JUNE 

150  REM  OF  I960  AT  DTNSRDC.  TIDES  IS  A  DATA 

175  REM  GATHERING  TOOL  THAT  SUPPORTS  THE  AACD 

200  REM  (ADVANCED  AIRCRAFT  CARRIER  DEVELOPMENT)  PROGRAM. 

225  REM  TIDES  IS  CAPABLE  OF  STORING  WEIGHTS  AMD 

250  REM  VOLUMES  INTO  AN  ARRAY,  UPDATING  AND  EDITING 

275  REM  AN  ALREADY  EXISTING  ARRAY,  COMPUTING  TOPSIDE 

300  REM  AND  BELOW  WEIGHTS  AND  VOLUMES,  EMPLOYING  DENSITY 

325  REM  IN  CALCULAIONS,  AND  PRINTING  OUT  THIS  ARRAY. 

330  REM  NOTE'  TIDES  WAS  UPDATED  IN  JANRUARY  OE  1961  BY  ITS 

331  REM  ORIGINATOR,  BOB  Q'JILLIN. 

3  AO 

350  REM  READ  IN  N=VERT ICAL  ARRAY  L I M I T , B=HORI ZONT AL  ARRAY  LIMIT 

375  READ  B 

400  FILES  HELP!EQUIP!TRY! INFO 

425  INPUT  *4,Dt,It 

430 

450  REM  At  ARRA Y=EQU I P .  TYPES, D  ARRAY-TEMP.  MAIN  DATA  S I ORAGE 

475  DIM  At< 100) , D< 100, 6) 

480 

500  REM  INTRODUCTION 

525  PRINT  TAB (20) • ****^*******#******************#***#** • 

550  PRINT  T AB <  20 ) 1  ♦  WELCOME  TO  TIDES  ** 

575  PRINT  T  AB ( 20 ) ‘ *  THE  INTERACTIVE  DATA  ENTRY  SYSTEM  *  ’ 

400  PRINT  TAB(20) •*,TAB(56! 

625  PRINT  TAB ( 20  )  1  ♦  TODAY'S  DATE  IS  *  DAT *T AB ( 56 ) • * 1 

650  PRINT  TAB ( 20 ) ‘ *  THE  TIME  IS  • ? CLKtT AB (56 ) • t * 

675  PRINT  T  A  B ( 2  0 ) 1  ♦  MOST  RECENT  WORK  SESSION-1 DtTAB (58) 1  # 1 

700  PRINT  TAB(20) 1  ♦ "TAB (35) "AT  1  ItTAB(58)*!r 

725  PRINT  TAB(20)  ■*»#**#**#*******♦**********!►***********• 

750  PRINT 
775  PRINT 

780 

800  REM  FILE  OPTION  CHOICE 

825  PRINT  'THIS  PROGRAM  HAS  THE  CAPABILITY  TO!  1 

850  PRINT  1  ( 1 ) CREATE  A  NEW  DATA  FILE  NAMED  TRY* 

875  PRINT  1  ( 2 ) E D I T  AN  ALREADY  EXISTING  FILE  NAMED  TRY* 

900  PRINT  "FILE  OPTION1  ! 

925  INPUT  L 

950  IF  L=2  GOTO  1125 

960 

975  REM  SAFETY  FEATURE  TO  GUARD  AGAINST  FILE  ANNIHILATION 

1000  PR  I  NT  1 OF’T I  ON  ONE,  FILE  CREATION  MODE,  REQUIRES  A  SAFETY  CHECK1 

1025  PRINT 1  TO  INSURE  THAT  AN  ALREADY  EXISTING  FILE  NAMED  TRY  IS  NOT 

1050  PRINT  1  WIPED  OUT1 

1075  PRINT'RE-ENTER  FILE  OPTION  (BE  SURE)1? 

1100  INPUT  L 

1105 

1110  REM  OPTION  TO  USE  OLD  EQUIP.  LIST  OR  CREATE  NEW  ONE 

1125  PRINT  'DO  YOU  ALREADY  HAVE  AN  EQUIPMENT  LIST  FILE  FOR  PROGRAM 

1150  PRINT  1 ( Y/N  > 1  ! 

1175  INPUT  C« 

1200  N=0 

1225  IF  CM'Y1  GOTO  1550 

1230 

1240  REM  SAFETY  CHECK  GUARDING  AGAINST  FILE  LOSS 

1250  PRINT  1  BE  CAREFUL.  TF  EQUIPMENT  FILE  ALREADY  EXISTS,  IT1! 

1275  PRINT  ’WILL  BE  OVERWRITTEN.  TO  BE  SAFE,  RE-EN1ER  ANSWER : 1 

1300  PRINT  ’DOES  AN  EQUIPMENT  LIST  EXIST  (Y/N)’1! 


INPUT  C« 

IF  Ct*  *  Y  *  GOTO  1550 


1325 
1350 
1360 

1370  REM  EQUIP.  NAME  ENTRY  MODE 

1375  PRINT  ‘ENTER  EQUIPMENT  TYPES.  ONE  AT  A  T IMF  *  > 

1400  PRINT  ‘(TYPE  STOP  WHEN  FINISHED >  »  *  » 

1425  INPUT  E* 

1450  IF  Et=*STOP*  GOTO  1625 

1475  N=N+ 1 

1500  At ( N ) "Et 

1525  GOTO  1425 

1550  N  =  N  +  1 

1575  INPUT  42 . At ( N ) 

1600  IF  MORE  t2  THEN  1550 

1625  IF  L=2  GOTO  2025 

1640 

1650  REM  ttt*  FILE  CREATION  MODE  tttt 

1675  REM  INITIALIZE  D  ARRAY  WITH  ALL  ELEMENTS  EQUAL  TO  ZERO 

1700  FOR  1^1  TO  N 

1725  FOR  J  =  1  TO  B 

1750  D(I.J>=0 

1775  NEXT  J 

1800  NEXT  I 

1805 

1825  REM  PRINT  D  ARRAY  <  ALL  ZEROS)  INTO  TRY  (CREATION  MODE) 

1850  SCRATCH  *3 

1875  FOR  1*1  TO  N 

1900  PRINT  43»D(I.l)»D(I»2)>D(Ir3)rD(I»4)tB<I>5)tD<Ii6> 

1925  NEXT  I 

1950  REM  SKIP  EDIT  MODE  STEPS  AND  MOVE  ON 

1975  GOTO  2150 

1981 

2000  REM  **»*  FILE  EDIT  MODE 

2025  REM  COPY  TRY  INTO  ARRAY  V 
2050  FOR  1=1  TO  N 

2075  INPUT  *3.D( I , 1 ) .D( 1.2) .D( I .3) .DCI.4) .D( I .5) >D( I .6) 

2100  NEXT  I 

2125  RESTORE  43 

2140 

2150  REM  OPTION  CHOICE 

2175  PRINT  ‘FOR  A  LISTING  OF  OPTIONS.  TYPE  1  AFTER  OPTION’ * 

2200  PRINT 

2225  PRINT  ‘OPTION’ i 

2250  INPUT  F' 

2275  PRINT 

2290 

2300  REM  SENDS  PROGRAM  TO  FOLLOWING  LOCATIONS.  ACCORD.  10  OPTION 
2325  ON  p  GOTO  2350 . 2675 . 2775 . 3525 . 3525 . 3525 . 3525 . 3525 . 352*. . 5225 . 55 
2340 

2345  REM  OPTION  LIST 

2350  PRINT  ‘THIS  PROGRAM  HAS  THt  FOLLOWING  OPTIONS  FOR  DATA  EN1RIES 
2375  PRINT  ‘  <1)  OPTION  LIST 

2400  PRINT  •  (2)  EQUIPMENT  TYPE  NUMBER  LIST* 

2420  PRINT  T  AB  <  7  )  *  (  3  )  EDIT  EXISTING  EQUIP.  FILE'.  ADD.  DELETE.  OR*! 
2422  PRINT  •  MODIFY  NAME' 

2425  PRINT  •  (4)  WE  I GHT /VOLUME  IN  LBS  S  CIJ.  FT.* 

2450  PRINT  ‘  (5)  DENSITY  IN  LBS/CU.FT.’ 

2475  PRINT  •  (6)  PERCENT  TOPSIDE  WEIGHT  AND  VOLUME* 

2500  PRINT  ‘  (7)  TOPSIDE  AND  BELOW  WEIGHT' 

2525  PRINT  ‘  (8)  TOPSIDE  AND  BELOW  VOLUME* 

2550  PRINT  *  (9)  PRINT  OUT  A  SPECIFIC  UPDATED  LINt* 

2575  PRINT  *  (10)  PRINT  OUT  UPDATED  ARRAY* 

2600  PRINT  *  (11)  END* 

2625  GOTO  2200 

2640 

2650  REM  PRINT  OUT  EQUIP.  TYPES 


26.75 

2700 

2702 

2725 

2750 

2760 

2770 

2775 

2800 

2825 

2830 

2844 

2845 
2850 
2875 
2900 
2925 
2950 
2975 
3000 
3025 
3050 
3075 
3100 
3125 
3150 
3175 
3180 
3200 
3210 
3215 
3225 
3250 
3275 
3300 
3325 
3350 
3375 
3400 
3425 
3450 

3475 

3476 

3477 
3480 
3482 
3484 
3486 
3488 
3490 
3492 
3494 
3496 
3500 
3525 
3550 
3575 
3600 
3625 
3627 
3650 
3675 
3700 
3725 
3750 
3775 


FOR  1^1  TO  N 

PRINT  *  <  *  I  *  »  ".A*<I> 

PRINT 
NEXT  I 
GOTO  2200 

REM  EQUIP.  LIST  EDIT  MODE 

PRINT  "CHOOSE  ADD.  DELETE.  OR  MODIFY  MODE  <A/D/M>". 

INPUT  D* 

IF  D*="D"  GOTO  3225 
IF  D4  =  "  M  "  GOTO  3460 

REM  NAME  INSERTION 

PRINT  "ENTER  EQUIPMENT  TYPE  NAME". 

INPUT  N* 

PRINT  "ENTER  NUMBER  WHERE  EUUIP.  TYPE  IS  TO  BE  INSERTED" 
INPUT  N 1 

FOR  I-N  TO  N 1  STEP  -1 
A*(I+1)=A*(I) 

FOR  J=1  TO  B 

D< 1  +  1. J)=D<I.J) 

NEXT  J 
NEXT  I 
A*(N1 )=N* 

FOR  1^1  TO  B 
D(N1 . I )=0 
NEXT  I 
N-N+  1 
GOTO  2200 

REM  NAME  DELETION 

PRINT  "ENTER  EQUIP.  NUMBER  YOU  ARE  DELETING". 

INPUT  El 

PRINT  A$  <  E 1 ) "  DELETED" 

FOR  I =E 1  TO  N 
A*  < I >  =A* ( I  + 1 > 

FOR  J=1  TO  B 

D(I,J)=D<I+1.J) 

NEXT  J 
NEXT  I 
N  =  N-  1 
GOTO  2200 

REM  NAME  MODIFICATION 

PRINT  "ENTER  EQUIP.  NUMBER  TO  BE  MODIFIED" 5 
INPUT  N2 

PRINT  "ENTER  NEW  NAME-ONLY  NAME  CHANGES.  NO  CHANGE  IN  " 
PRINT  "SPECIFICATIONS" i 
INPUT  N» 

PRINT  A»(N2>"  HAS  BEEN  CHANGED  TO  "N* 

A»(N2)*N« 

GOTO  2200 

REM  CHOOSE  EQUIP.  TYPE  YOU  ARE  WORKING  WITH 
PRINT  "ENTER  EQUIPMENT  TYPE  NUMBER"! 

INPUT  T 

IF  P=9  GOTO  3625 

PRINT  "EQUIPMENT  TYPE!"A*(T) 

ON  P  GOTO  2350.2675.2775.3675.3825.4725.4100.4400.4950.522 
REM  WEIGHT  AND  VOLUME 

PRINT  "ENTER  WEIGHT  AND  VOLUME.  SEPARATED  BY  COMMA" ! 

INPUT  W.V 

D( T. 1 >* INT<Wt .5 ) 

B<  T . 4) -INT< V+ .5) 

GOTO  2200 


5.5500 
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yn'-O-. 


3780 

3800  REM  DENSITY  W/PRIORITIES  ‘l‘=WT.  CONSTANT ,‘ 2 • «V0L .  CONSTANT 

3825  PRINT ‘ENTER  DENSITY  FOLLOWED  BY  1  FOR  WT.,  2  FOR  VOL.  PRIORITIES‘1 

3850  INPUT  Y.R 

3875  IF  R-2  GOTO  3975 

3900  D<T»4)=INT<(B<T»1)/Y)4.5> 

3925  IF  D(T»5)+D(T,6) OP (  T  »  4  )  GOTO  4050 

3950  GOTO  2200 

3975  D<T»1)»INT< < D< T , 4 > *Y >+ .5 > 

4000  If  D(T,2Ht(Ti3!OD(Ti!)  GOTO  4050 

4025  GOTO  2200 

4050  PR I NT* WARNING -TOP  (  BEL.  CALCULATIONS  ARE  NOW  NOT  ACCURATE  U/  TOTAL 

4075  GOTU  2200 

4080 

4099  REM  TOPSIDE  AND  BELOW  WEIGHT  CALAULAT IONS 

4100  PRINT  ‘ENTER  TOPSIDE  WT.  AND  BELOW  WT  .  ,  SEPARATED  BY  COMMA’S 

4125  INPUT  E.O 

4150  IF  D  <  T  » 1 ) =0  GOTO  4300 

4175  IF  D(T» 1 >=E+0  GOTO  4300 

4200  PRINT ‘TOTAL  WT.  DOES  NOT  EQUAL  SUM  OP  TOP  t  BEL.  WTS.  ENTERED* 

4225  PRINT ‘ DO  YOU  WISH  TO  OVERWRITE  CURRENT  SUM  OF ‘ ? D< T , 1 ) ! • < Y/N  )  ‘ 

4250  INPUT  L« 

4275  IF  Lt  =  ‘ N ‘  G0T02200 

4300  D(T»2)=E 

4325  D ( T  »  3 ) =0 

4350  D(Tfl>-E+0 

4375  GOTO  2200 

4380 

4390  REM  TOPSIDE  AND  BELOW  VOLUME  ENTRY 

4400  PRINT  ‘ENTER  TOPSIDE  VOL.  AMD  BELOW  VOL..  SEPARATED  BY  COMMA* 5 

4425  INPUT  M . X 

4450  IF  P  <  T . 4 ) =0  GOTO  4600 

4475  IF  D(T,4)*M+X  GOT04600 

4500  F'R I  NT ‘ TOT  AL  VOL.  DOES  NOT  EQUAL  SUM  OF  TOP  I  BEL.  VOLS.  ENTERED' 

4525  PRINT ‘ DO  YOU  WISH  TO  OVERWRITE  CURRENT  SUM  OF • ! D < T , 4 ) ! ‘ ( Y/N ) • S 

4550  INPUT  Ml 

4575  IF  M4  -  *  N ‘  GOTO  2200 

4600  D(T,5>’M 

4625  D  <  T  »  6  )  =X 

4650  D ( T  »  4 ) =M+  X 

4675  GOTO  2200 

4680 

4700  REM  PERCENTAGE  UEIGHT  AND  VOLUME  SPEC  I  PI  CAT  IONS 
4725  PRINT  ‘ENTER  PERCENT  TOPSIDE  WEIGHT,  IN  DECIMAL  FORM*! 

4750  INPUT  P 

4  775  D(T»2)«INT(  (PIT,  1  >*p  )  +  .!.) 

4800  D(T ,3)-INT ( (P(T, 1 )*< 1-P) )♦ .5) 

4825  PRINT  'ENTER  PERCENT  TOPSIDE  VOLUME,  IN  DECIMAL  FORM*! 

4850  INPUT  0 

4875  D(T,5>=INT< < D< T , 4 ) *Q) + .5) 

4900  D(T,6)«INT((D(T,4)*(l-Q>)+.5) 

4925  GOTO  2200 

4930 

4945  REM  PRINT  OUT  ONE  SPECIFIC  LINE  *T* 

4950  PRINT  A4(T)!!!!D(T,l)iD(T,2!iP<T,3)!P(T.4)!D(T,5)!D(1:6> 

4975  GOTO  2200 

4980 

5225  REM  PRINT  OUT  ENTIRE  ARRAY 

5250  PRINT  'EQUIP . * , *  TOT .  WT .*,* TOP/BEL .*,* TOT .  VOL .*.* TOP/BEL  * 

5252  PRINT 

5275  FOR  1*1  TO  N 

5300  PRINT  •  (  ■  I  •  >  • 

5325  PRINT  A*(I)TAB(16)D(I,1)TAB(31)D(I,2'*/*D(I,3)TAB(46>D(I,4)TAB(61> 
5350  PRINT  D< I ,5) */*D( I ,6  ) 

5352  PRINT 
5375  NEXT  I 
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GOTO  2200 


5380 

5400 

5500 

5525 

5530 

5534 

5550 

5575 

5600 

5601 

5602 
5604 
5606 
5608 
5610 
5615 
5620 
5624 
5640 
9999 
* 


REM  TIME  AND  DATE  WRITTEN  INTO  STORAGE 

SCRATCH  *4 

SCRATCH  #2 

SCRATCH  *3 

D*~DAT< 

I$=CLK* 

PRINT  #4fD$,r,fIf  f  ' 

REM  PRINT  ALL  ARRAY  D  ELEMENTS  INTO  TRY 
FOR  1=1  TO  N 
PRINT  #2»A«(I)f*f’ 

PR  I  NT  #3  >  D  <  I  >  1  )  *  >  ‘  i  D  <  I  >  2  )  *  >  *  »  D  <  I »  3  >  *  *  1  i  D  (  I  ?  4  )  ’  »  ’  >  D  <  I  >  5  )  1  ?  *  D  <  I  >  6  > 
NEXT  I 

REM  DATA  FOR  VERTICAL  AND  HORIZONTAL  BOUNDS 
DATA  6 

END 


8/. 


Copies 

1 

15 


1 

12 
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DTIC 
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5 
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1 
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2 
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1 
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15 
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1 
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25 
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10 
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1 
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1 
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